<%@ Language=VBScript %> <%Option Explicit%> Ip Address

<% Dim sIpAddress sIpAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") if sIpAddress = "" then sIpAddress = Request.ServerVariables("REMOTE_ADDR") Response.Write(sIpAddress) %>